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ABSTRACT 


THIS PROGRAM WILL TEST 
RP11 DISK CONTROLLER. 


EEK TO A RANDOM THEN’ WRIT AD 
BENDON DATA WHILE BETA 1S BEING ERRED SEPR 
OPERATIONS WILL BE IN PROGRESS ON THE OTHER DRIVES 
THE PURPOSE THE TEST IS TO CHECK FOR ANY 
INTERACTION -ON THE BUS WHILE TRYING TO KEEP ALL THE 
DRIVES BUSY. 

REQUIREMENTS 
EQUIPMENT 


PDP-11 STANDARD FAMILY PROCESSOR 
RP11 DISK CONTROLLER WITH UP TO EIGHT RPO2 DISK 


2.2 STORAGE = 
4K OF STORAGE IS REQUIRED TO RUN THIS TEST 


PRELIMINARY PROGRAMS 


BER DISKLESS pretest 


DISK RELIABILITY Of 


tT 
OIAGNOSTIC 


LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR ABS TAPES. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
SEE S.1.1 ; 
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ry 
oa , 


THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. 


<£ 
wo 


4.3. PROGRAM AND/OR OPERATOR ACTION 
| LOAD PROGRAM INTO MEMORY USING ABS LOADER 
LOAD ADDRESS 200 . 

SET SWITCHES (SEE SEC. 5.1.1) 

" PRESS START. 

THE PROGRAM WILL LOOP UNTIL STOPPED 
DUE TO THE RANDOM NATURE OF T 


Is 
Ro, PRA NCE Rate ar 


S. OPERATING PROCEDURE 


an on 


5.1 OPERATIONAL SWITCH SETTINGS . 


SLE TBS SORT BoE TUE OST, TTS 


5.1.1 SWITCH SETTING ARE: 


$< 15)=1 ay HALF ON ERROR 
Suk t3>21: col TR IRHIBT CoRINTOUT 
SWil2> owe NOT 

aelp de NOT USED 
SW<1O>=1..... BELL 


SW<07> THRU SW<O0>=1..... SELECT UNIT FOR TEST 


SW<00> CORRESPONDS TO UNIT O 
SW<07> CORRESPONDS TO UNIT 7 


eSB VRR Elo O.03 Vout 2 odnde cpap Worn Lou we IOUT e Cote eo 


5.2 SUBROUTINE ABSTRACTS 


TUT bb 8 bb 0 8 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 Bb 0 9 = 0 2 bo 0 po oe pe 
B 238 
w 


Oo 
~- 


§.2.1 HLT 
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IT_ WI L. TYPE THE PC 
ERROR Tone ee THIS 
ERROR, INHIBIT TYPEOUTS, 


TRAP CATCHER 
“HALT” SEQUENCE IS REPEATED oe 0-776 


TO 
ST reReHTE Pa he esta 
ERRORS 


WEN ai ~, ITE ee ent ie oF Rene PER OF pe 


a MED ane CIvE gOMTgHTS OF AC maaepe ted 
STEERING TO THE LISTING ADDITIONAL INFORMATION CAN 
BE FOUND REGARDING wen CAUSE OF 


TELD. 
TNFORNATION I TYPED 
ne Sa oe — S OF AN 


PE pati ete tee tat terete tel ae 


ror 
pat a 


rorury 
2S 


ERROR MESSAGE FORMAT 


1. PCs 
UNIT 
RPOS= 


RESTRICTIONS 


SINCE THIS IS AN INTERACTION TEST, THERE IS NO 
LOOPING ON ERRORS. 


MISCELLANEOUS 
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EXECUTION TIME 
QUE TO THE RANDOM NATURE OF THE PROGRAM THERE IS NO 


MEANINGFUL PASS COUNT. IT IS RECOMMENDED THAT THE 
PROGRAM SHOULD RUN FOR HALF AN HOUR. 


STACK POINTER 
STACK IS INITIALLY SET TO SOO. 


ERROR INFORMATION 
IF IT IS DESIRED TO HAVE THE ERROR INFORMATION 
OUTPUTTED TO THE PUNCH INSTEAD OF THE TELETYPE 
CHANGE THE FOLLOWING THREE LOCATIONS. 
~ LOCATION FROM TO 

177564 —-177554 

177566 177556 

177564 177554 


PROGRAM DESCRIPTION 


WHEN STARTED THE PROGRAM WILL RESTORE THE HEADS FOR 
H ‘THEN THE FOLL SHINS 


SECTOR 1 Buches Se WRITTEN, 


SS 
EXERCISED th a RANDOR” SE 


NG TRANSFERRED, SEEK PERSONS ARE IN PR 


o 


GB. 
2s3 
260 
64 
265 
266 
267 
268 
69 
71 
e7e 
e73 
274 
275 
276 
277 
2 
e 
280 
281 
282 
283 
284 
ess 
286 
287 
288 
289 
290 
291 
ese 
233 
zs 
296 
297 
298 
eso 
300 
301 . 
302 . 
303 
304 
30S 
306 
2 


aSTKPTR SP sSET STACK POINTER 
aaPsw "LOCK UP INTERRUPTS 
BERR, 2 *SETUP ERROR TRAP 


#PR oe 
SSCOPES 30 ;SETUP SCOPE TRAP 


WWWLIG) 
0 
£Wwve--O 





MAIN 


WWW Wt 
b= bb P= pee 
WOonaoul 


BRE 


abs a cab Att bal task 


hs a 


Sg a aa a ae 
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; 

: 

: 

a 

01c6 
; 

: 

, 
000200" 
000204’ 
b 

’ 
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00G 900032 
002336’ O00eS4 
000340 000256 
002632’ 

000200 


oo0d4e 


000001 002742 
002740 


002750 
poooons 002632’ 
0000006 


000001 

0000006 

0000006 002632’ 
000020 


-ooog00s 


001656 


7 002606 
002604 


0000006 002632’ 


000136 
002560 


000020 
0000006 O0e2S46 


7 002540 


0000006 002632’ 
002632’ 
Ooesi2 
le 
000020 
0000006 002500 


002474 
002470 0000006 


wWoOwWoO 


. 
WOoOOwm 
vam 
4DDoO- 


mt BHOS 
unaAS< 


Ente t 


Baer ainto oe IP Sum te 


WO Det 
ZmnoZGSz 


JOl 


#PRI7, 32 
#OSKINT, JSVECTOR 
#340, axSTATUS 


yee) ;CLEAR THE DEVICE TABLE 


;UNDER MONITOR CONTROL? 
;BRANCH IF NO 
;CLEAR MODIFIER 


;CLEAR THE CONTROLLER 
BRANCH IF YES. 
:SET UNIT UNAVATLABLE BIT 


:UPDATE MODIFI 
:UPDATE_UNIT NUMBER 
ZALL UNITS TESTED? 
:BRANCH IF NO 


; TEST THE SWITCH REGISTER 
310 DETERMINE WHICH UNITS 


4815, DEVTBL (RO) ;T0_TEST. IF THE UNIT IS UNAVAILABLE 


:SET BIT 15 IN THE DEVICE TABLE 


Rl 
#88,R1 
es 


RS, EXTMEN 
UNIT 


PASSCT 


#B815,DEVTBL(RS) ;IS UNIT AVAILABLE? 
; BRANCH IF NO 
UPDATE nn RIP 
“UPDATE TABLE POINTER 
SHAVE ALL UNITS BEEN HOMED? 
;NO-BRANCH 


;HAVE lala BEEN SCANNED? 


SCLEAR THE SYSTEM 
:DETERMINE AMOUNT OF CORE 
SINITIALIZE POINTER 


RS : 
#B1S,DEVTBL(RS) ;IS THE UNIT AVAILABLE? 
1$ i BRaNcti ty NO 


DEVTBL(RS) RY 
FC aINPTBLERY) s PERFORM FUNCTION IN JMPTBL 


#16.,RS UPDATE TABLE POINTER 
863 UNIT sa UNITS BEEN SCANNED? 


INCREMENT ITERATION COUNTER 


PASSCT 
PASSCT, a#SWR ;DISPLAY COU 





;SET UP. DISK INTERRUPT VECTOR 


££ 
resyesy ess 


Wrue-O 


GB.P 
371 
37e 
373 
374 
375 
376 
38 

793 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
332 
393 
34 
33 
3% 
397 
398 
339 
403 
404 
40S 
406 
407 
408 
409 
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00446 


002426 


; THIS ROUTI 
ADDRESS IS 


HOME: 


SS: 
1$: 


0000006 002426 


33: 


4§: 


ATTNB: 
ATTN: 


MOVB 
TST 
BMI 
HLT 
MOVB 
MOV . 


0 
BYTE 


KO1 


aede UNDER MONITOR CONTROL? 
MEXITL : H IF 

#S000,PASSCT § ;IS PASS COMPLETE? 
MEXITI “BRANCH IF NO 

ae42, RI GET RETURN ADDRESS 


PC, (R1) ;RETURN TO MONITOR 


LOOP _ sLOOP 


Ne WILLS SEEK HOME THE PACK WHOSE 


UNIT, ARPCS1 ‘sLOAD THE UNIT 
JRPDS TS THE UNIT READY? 
S$ “BRANCH IF READY 
sUNIT IS NOT READY 
#15, IRPCS *DO A HOME SEEK 
#25,R4 P 
Ra sWAIT FOR SEEK TO START 
#810, RPDS :1S SEEK UNDER WAY SET 


sY 
UNIT. RY ;SEEK UNDERWAY DID NOT SET 


ATT 
Agana echt ;DERTMINE ATTENTION RESPONSE 


RO 
7$ 


RO 
ATTNB, IRPDS 
35 
RO 
bg FBRANCH IF NO 
SATTENTION BIT DID NOT SET 
agrcs sANY DEVICE STATUS ERRORS? 
i E STATUS ERROR AFTER HOME COMMAND 
ATTNB, ARPDS 


tls ATTENTION BIT FOR CURRENT UNIT 
1,2,4, 10,20, 40, 100, 200 


ONT WILL _ GO FOR_ANY 
ORD OF THE-DEVICE TABLE 
SR INDIRECT INTO 
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JMPTBL: SEEK See KA para CYLINDER 
SEKCK =f ret pK, 1S COMPLETE 
WRITE RANDOM DATA 

READD READ AND VERIFY RANDOM DATA 


; THIS tap ha wet GENERATE A RANDOM CYL 


;AD K TO IT. THE BN 
serra ae R IN THe ) Device TALE WILL BE ero 
CHECK FOR THE ATTENTION B 


002636’ 002634’ SEEK: V DEVTBL+4(RS), DEVTBL+2(R5) -SET UP CYLINDER FROM ADDRESS 
002240 002264 UNIT, JRPCS1 s SELECT THE UNIT 
1S: ND GENERATE A RANDOM NUMBER 


LONUM, WORK1 

HENUR’ WORK? 
#177400, WORK1 

$312 2, WORK1 


1$ 
WORK1, eit | 
WORK1, DEVTBL+4(RS) SAVE CYLINDER ADDRESS 


WORK2, DEVTEL+8(RB) USE A RANDOM DATA BASE 
neraté™ A RANDOM NUMBER 


31S NUMBER TOO LARGE? 
RANCH IF YES 


po0000¢ 002154 LONUM, WORK 
0000006 902150 V HINUM, WORK 
177760 77760, WO 


bo001t ous132 Li 1 WORK GENERATE A RANDOM SECTOR 


#8. , WORK 
#177740, WORK2  ;GENERATE A RANDOM TRACK 
#23, WORK2 


#14, WORKe 
WORKS, WORK1+1  ;MERGE TRACK AND SECTOR ADDR 


WORK1, DEVTBL+10(RS) - STORE RANDON DISK ADDRESS 
DEVTBL+ +12(RS) - CLEAR TIMEOUT ¢ NTER 
DEVTBL+4(RS). aJRPCA LOAD CYLINDER ADDRESS 
DEVTBL+10(RS), JRPDA ‘TOAD TRACK AND SECTOR 
all, ak PCS s INITIATE A SEEK 


tics, 
a ;WAIT FOR SEEK TO START 
#810, JRPDS ;1S THE SEEK UNDERWAY? 
S$ ; YES-BRANCH 
WAY DID NOT SET 


0000006 ; SEEK UNDER 
00S2e65 002632’ S$: DEVTBL(RS) ;MODIFY FUNCTION POINTER TO 
00Se6S 002632’ "Milt RS) ich ia FOR SEEK COMPLETE 


BResee 
PRrwO 
owe es 6 


gessssses 
s 


en eee oe ee re ee ee 


20 
RW 


5 THIS ROUTINE IS ENTERED AFTER A_SEEK HAS BEEN ISSUED. 

T CHECKS THE ATTENTION FLAG - IF CLEAR IT UPDATES THE 
‘TIMEOUT COUNTER AND CHECKS IT. IF SET IT VERIFIES 
;THE SEEK FUNCTIONED PROPERLY. 


016704 001766 SEKCK: MOV UNIT,R4 
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oo0s4o’ 177464 MOVB _ATTN(R4),ATTNE ;DETERMINE ATTENTION BIT 
177460 002014 BIT r ATTN, RPDS ‘TEST FOR ATTENTION FLAG 


NCH IF SE 
002644" DEVTBL+12(RS) ;: UPDATE T T COUNTER 
005000 o02644’ #50 EVTOL+12(RS) TAB OPERRT LON TIMEOUT? 
001730 001754 Nove UNI7,SRPCSL  SeLeCT UNIT. 
ry oe ee + EER TIMED OUT 


Bees 
S5eR 


us 
25: PC sEXIT 
I 177420 001754 i$: ATTNB,JRPDS CLEAR ATTENTION FLAG 
118777 001706 001732 UNIT, aRPCS1 SELECT UNIT 
777 0000006. 001740 #810’ JRPDS 1S SEEK UNDERWAY CLEAR? 
1402 3$ 'TF YES-BRANCH 
G ?SEFK UNDERWAY DID NOT CLEAR 
900423 


BR 4 
005777 001710 38: JRPCS sARE THERE ANY DEVICE STATUS ERRORS? 
100002 c$ ;BRONCH-NO ERRORS 
DEVICE STATUS ERRORS 

000416 BR 4g 
117767 001716 OO1446 SS: JRPCAL RECS -GET CURRENT CYLENDER ADDRESS 
Oe6765 001442 002636’ CMP RECS,DEVTBL+4(RS) DOES IT MATCH CYLINDER REQUESTED? 

: “CURRENT CYLINDER AND CYL REQUESTED DID NOT COMPARE 


NOPMOR Lo omar 


a en oe wnuier ba fe fe Bene Ps fs Fs bo pe pe 
& 


F2VNSR 


DEVTEL+4(RS) 
e. RECS NI ix 4® 
QOQ00NG OO1ESE 4S: #811, ORPDS ;SEEK INCOMPLET#? 
BEQ *BRANCH IF NO 
000015 001630 #15, ORPCS TISSUE HOME COMMAND 
001624 ST arpts :WAIT FOR DONE 
001634 Is RPDS ;WAIT FOR UNIT READY — 
002632’ : DEVTBL (RS) ; CLEAR FUNCTION POINTER 
002632’ 6S: NC DEVTBL (RS) F 
DEVTBL(RS) ;UPDATE FUNCTION POINTER 


2 hs he be ho oe 
WOnNMUCU--O 


OPQ rere tect teees 


rm 
i 


: 
» 
, 
bd] 
, 
bd 
Sd 
° 
, 
, 
, 
’ 
? 
? 
° 
’ 
? 
, 
’ 
, 
, 
, 
’ 
’ 
J 
, 
’ 
’ 
, 
, 
, 
, 
, 
’ 
, 
, 
’ 
’ 
, 


MES1O: .ASCIZ <15><12>’REQUESTED CYLINDER= ’ 


Zook SLeACSeRoeeoReRS 


8 


SIONS 
SSESS8SSsEs Sssesssssssssssssssssssssssssesssss 


is b+ bs bh be be Pe Re bm be Be bs hb hb ba Ps = bh Be 0 bh hb Pe pe 


MES11: .ASCIZ <15><12>’CURRENT CYLINDER ADDR REGISTER= ° 


wun 

toy 
-_ 
ww 
= 
Or 

£oui 


> 


BRAZZA SSR 
Oouwuce j 
SReesR 


- EVEN 
;THIS ROUTINE WILL WRITE A RANDOM SECTOR ON 


Bootes 
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539 ;A RANDOM TRACK. THE CYLINDER HAS ALREADY 
10 *BEEN SELECYED BY THE SEEK ROUTINE. 
S42 001354’ 004767 000634 WRITE: JSR PC RANADR ;GENERATE A RANDOM BUFFER ADDR 
543 001260’ 012767 O00400 o014S0 MOV #400, WO 
S44 001366’ 016701 001456 MOV F. ie 
54S 001372’ 004767 000334 JSR PC. RANDAT ;GENERATE A RANDOM PATTERN 
Sue 001376’ 116777 001430 o014s4 MOVB UNIT, JRPCS1 : SELECT UNIT 
547 001404’ 032777 OO00000G 001462 BIT #815, JRPDS i18 THE SELECTED UNIT READY 
S48 001412". 001003 BNE 1$ NCH 
S49 001414° oo00006 : HLT CEL ECTED UNIT NOT’ READY 
Boo 001416’ 900167 000100 IMP WRTER :START SEQUENCE OVER 
SS2 001422’ 012777 177400 O01432 1S: MOV #-400, JRPWC ;SETUP WORD COUNT REGISTER 
653 001430’ 016777 OO1414 001426 MOV PBA ‘SETUP BUS ADDR REGISTER 
SS4 001436’ 016577 002636’ 001422 MOV DEVTBL+4(R5) aRPtA -SET CYLINDER ADDR 
SSS 001444’ 016577 O0e64e’ OO14I6 * MOV DEVTBL+10(R53, aR -SETUP DISK ADDR 
S56 001452’ 005067 001374 CLR INT .C BR INTERRUPT FLAG 
557 001456’ 012727 O00000G ooD0006 MOV #PRI4. JePSW ‘Attow 1 TERRUPT 
558 001464’ 005067 001356 CLR INTERR CLEAR ERR LAG 
559 001470’ 112777 000113 001360 MOVB #113, aRPCS : INITIATE RBITE WITH INTERRUPT 
560 oo1476; 4767 O00606 JSR PC. WAIT * TIMEOUT THE OPERATION 
S61 001502 005767 001340 TST INtERR : sANY ERRORS? 
S62 001506’ 001005 BNE WRTER - “BRANCH IF YES 
S63 001510’ 005265 002632’ INC DEVTBL(RS) *UPDATE FUNCTION POINTER TO READ 
564 001514" 005265 002632" INC DEVTBL(RS) 
S65 001520’ 000403 BR READD 
S66 001522’ OOSO6S 002632’ WRTER: CLR DEVTBL(RS) sRESTORE FUNCTION POINTER 
B67 001526" 000207 RTS PC EXIT 
263 READ AND VERIFY THE DATA WRITTEN 
571 001530’ 116777 001276 001322 READD: MOVB UNIT, @RPCSI sSELECT THE UNIT 
572 001536’ 032777 O00000G 001230 BIT #815, JRPDS s18 THE SELECTED UNIT READY? 
o73 001544’ BNE 1$ YES-BRANCH 

001546’ HLT SELECTED UNIT NOT READY 
575 001550’ 000167 oo0150 - IMP ROCNT 
576 001554’ 012777 177400 001300 1S: MOV #-400, IRPWC sLOAD WORD COUNT REGISTER 
577 001562’ 016777 OOl262 001274 MOV BUFF, JRPBA *LOAD BUS ADDR REGISTER 
578 001570’ 001000 O01266 ADD #1000, JRPBA 
579 001576’ 016577 GOc636’ O0lobe MOV Beet su CBE) ae ;SET CYLINDER ADDR 
580 001604 016577 O0e642’ 001256 MOV DEVTBL+10(R5S3, JRPDA :SETUP DISK ADDR. 
S81 OO0l612" 005067 001234 CLR INT CLEAR INTERRUPT FLAG 
oe 001616’ 005067 001224 CLR INTERR *CLEAR ERROR FLAG 

O0is2e2’ 112777 OOO1I7 ooie2b MOVB #117 aRPCS j INITIATE READ WITH INTERRUPT 
584 001630’ 004767 4 JSR *TIMEOUT THE OPERATION 
58S 001634’ 0000006 001214 nee, WaT #814 SRPCS HARD ERRORS? 
586 001642’ 001030 BNE RDCNT BRANCH IF YES 
587 Oo1BHH gi6701 001200 MOV BUFF ,R1 
S88 001650’ 016702 001174 MOV BUFF, Re 
28 BOLEeE Beevot 001000 an ie TAR PATTERN BUFFER 
ea ratte ett 3S: cp He. ( ; SHEARS DATA 

1664’ O01 BNE : BRANCH oat Por NOT COMPARE 

693 001666’ 005203 INC 5s INCREMENT COUNTER 
594 001670’ 022703 oo0400 . CMP #400,R3 ‘HAS BUFFER BEEN SCANNED 


z 
=z 
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HL 
RDCNT: GbR 


Boe 


3$ ; BRANCH=NO 

ROCNT 

-2(R2) , EXP 

~2(R1), REC 

+1 ;DATA DID NOT VERIFY 

* leslie 2S adda FUNCTION POINTER 


;GENERATE A RANCOM PATTERN 


RANDAT : iad 


RANDAL: MOV 
SHIFT: ASL 
ROL 


ROL 
DEC 


ANS SONS SHEE RES ES SRSA 


EXGEN: RTS 


RAND 1: 4 
RAND: 


DEVTBL+6(RS), RAND ;GET RANDOM BASE 
DEVTBL+10(RS3, RANDe 
RAND1, RO 
RAND2. RY 
47,83 ;SETUP SHIFT COUNT 
RO ;SHIFT RO LEFT AND 
RY :ROTATE CARRY INTO LSB OF RO INTO R4 
R2 "ROTATE CARRY OUT OF R4¥ INTO Re 
RS TFT CREE Loge 
RAND1,RO ADD iN 8 49 MAKE X129 
RaNo2, RA AOD Th eT ReKE x129 
Ro : TE gna 
#1057,R0 :ADD LOW CONSTANT 
:PROPOGATE CARRY 
:PROPOGATE AGAIN 
847401, R4 *ADD HIGH CONSTANT 
ag Re 
Re, sREPRIME RO WITH HIGH DIGIT 
RO Ring STORE DATA IN BUFFER 
WORK : 
EXGEN 
RY, RAND2 
RY (RL) :STORE DATA IN BUFFER 
RANDAL sFILL ENTIRE BUFFER - 
PC. sEXIT 


;THIS ROUTINE DETERMINES THE TOTAL AMOUNT OF AVAILABLE 
;CARE WITHOUT USING MEMORY MANAGEMENT. 


OO0090G EXTMEN: MO 


V 
Bo0006 MOV 


017446 000064 MOV 


#PRI7, JaPSW sLOCKUP PRIORITY Li vEL 
SMAXREF, 4 :SETUP 10 BUS TRAP 


aP 
817446, SAVE. * ;START WITH 4K 








. MAIN 





DZRPGB.P1) 
651 002126’ 
652 002132" 
Seats 
658 pastes: 
ess 154’ 
eer posies” 
662 002170’ 
cei Bsboy: 
665 pesspe: 
B66 002210" 
667 OOcele’ 
668 
669 
670 
671 002214" 
be 002226’ 
673 002224’ 
674 002230’ 
675 002232” 
676 , 
677 , 
678 O022Se2” 
679 002256” 
fer posSeN” 
ees posse" 
683 002270’ 
684 002272” 
68S ’ 
ESE , 
687 
£88 
feo Dosaie" 
691 Bessia 
b3¢ 002320" 
a 
695 
696 002330’ 
697 002334’ 
$og 
£99 
oe 
re eR. 
oes 002346’ 
705 002352’ 
706 002356’ 
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767 020000 000040 


beorey 003312’ 900540 
000534 000542 


! 
i 



























C02 


EXREF: TST aSAVE ;REFERENCE MEMORY 
CMP #157446, SAVE ;TEST FOR 28K 
AR. BRANCH IF LESS THAN 28K 


1$: ADD 20600, SAVE ;SETUP FOR NEXT REFERENCE 
BR EXREF 


;ENTER HERE WHEN IO BUS ERROR OCCURS 
MAXREF: SUB #20000, SAVE 
MAXRF 1: MO #6,4 


Ae ;RESTORE 10 BUS TRAY 

TST ase ; UNDER i a CONTROL? 

BEQ 1$ BRANCH IF NO 

SUB #3000. , SAVE ;ADJUST TOP OF CORE 
1$: RTS RS SEXIT-SAVE=MAXIMUM MEMORY . 
SAVE: 0 HIGHEST AVAILABLE LOCATION 


sGENERATE A RANDOM BUFFER ADDRESS 
RANADR: MOV. SAVE. RY 


SUB #ENOP,RY sDETERMINE BUFFER SIZE 
5 #2000 R4 ‘ALLOW ROOM FOR DATA 
RAND GENERATE A RANDOM # 


LONUM, WORK 1 


MOV 
af a WORK ;MAKE NUMBER EVEN 

2s CMP RY, WORK! sENSURE THAT THE RANDOM - 
BHI 1$ [ADDRESS FITS WITHIN AVAILABLE 
BIC R3, WORK1 : MEMORY 
ROR R32. 
BR 2s 

1S: ADD SENDP, WORK 1 
HOV WORK 1° BUFF ; SAVE BUFFER START ADDR. 


TIMEOUT THE OCCURANCE OF AN INTERRUPT. 
WAIT: CLR RO 
2s: 


NC RO 
St INT vee INTERRUPT OCCURED? 
. Feee . Bee, H 
TST 8 OPERATION TIMED OUT? 
ane 2 is H 
HL su TIMED OUT ON READ OR WRITE 
INC INTERR 3et ERROR FLAG 
18: RTS PC ;EXIT 


;ENTERED UPON A DEVICE INTERRUPT. THIS ROUTINE 
sWILL CHECK FOR AND REPORT DEVICE ERRORS 


DSKINT: BIT #815, 2RPCS ; WHERE THER AN ¥ ERRORS” 
oe beKER REPORT ERROR 

1S: MOV BUFF, R3 
ADD #1000,R3 









.MAIN. 


DZRPGB. 
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Pll 
002362’ 022765 000004 002632" CMP #4, DEVTBL (RS) 
Oosare" 001000 ae $1900,R3 - 
, 000462 33: CMP R3,aRPBA 
: | 8 


2 
2 





gge4i0; MES13 
poet , PRINT 
14° MES18 
16’ 0009006 ? R3 
30; PRINT 
, y MES19 
: ? 14 Oe oNTERR SET ERROR FLAG 
pesuss> eats anne 2s: IMP EXTINT . 
Oe 35 DSKER: HLT s REPORT INTERRUPT DISK ERROR 
° 02 INC INTERR :SET ERROR FLAG 
002444’ 052767 O00000G OOD400 EXTINT: BIS #80, INT 
’ 032777 0000006 OOO414 1S: T #815, ORPOS ; is THE UNIT READY 
1774 Q °° 1s: NO-WATT 
=? RTI sEXIT INTERRUPT 
poeyey 7? 0000006 CN0000G Msc: BIT #81, HLTCTS : TYPE ENTIRE MSG? 
, NE 1 "BRANCH IF NO 
002474’ PRINT 
002476’ MES1 
002500" SOUMP UNIT 
02502” PRINT 
002504” MES2A- 
002508’ MOV JRPDS, TTY 
002514’ JSR PC, PRINTR 
002520" PRINT. 
002522” MESIA 
002524" DUM JRPER 
002526” INT 
002530’ MES2 
002532” DUMP  @RPCS 
002534’ PRINT 
002536’ MES3 
002540" SOUMP . DEVTBL+4(RS) 
002542" PRINT 
peseae> Soehey Hes 
46" ' 900272 ct WORK3 
O025S2° 116567 002643’ 000264 MOVE DEVTBL+11 (RS) , WORKS 
* 003172’ MESS 
002566" 116567 oo2642’ 000250 MOVB DEVTBL+10(RS),WORK3 
002574’ o00000G SOUMP WORK 
002576’ 7 000006 o000006 1S: BI #80, HLTCTS ;TYPE EXPECTED - RECEIVED? 
poeB04 BNE s ‘BRANCH IF YES 
’ RTS C 
002610’ 0000006 2s: 
002612’ 003262’ 


DOe 






;1S THIS A WRITE? 
; IF YES 


H 
b1D THE BUS ADDR TERMINATE PROPERLY? 
OER NTS OF RPBA INCORRECT 
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OZRPGB. P11 
@ 763 002614’ 0000006 DUMP —- EXP 
764 fe 0: PRINT 
¢ 
e BE 
768 002626’ OO00000 EXPS: 
73 mip same ABLE TAINING FOR EACH OF 
ood ie “URIS, DURING 5 OP Be OBERATION o Fite eben : 
rd 
773 ise 1s USED a PROPER poate EACH UNIT SLOT CONTAINS 
774 *EIGHT ENTRIES(WORD) 
775 1 FUNCTION POINTER 
aa : 7 e: K IN PROGRESS 
778 : 4= 
779 $ 6=READ 
780 : IF NEGATIVE UNIT 1S T TESTED 
oa +S CYLINDER. TO AODRESS-BO folgh OF THE SEER COMMANDS Foe T TON 
783 :4 RENO Boge F' Bet ERN GENERATION TION 
734 5 RANDOM TRACK AND SECTOR ADDRESS 
785 *& CYLINDER SEEK TIMEOUT COUNTER 
re i ee 
728 
789 EVEN 
790 002632’ oo0000 DEVTBL: 0 ;UNIT 0 SLOT 
791 002652 . =DEVTBL+20 
792 02652’ 000000 UNIT1: 0 sUNIT 1 SLOT 
793 002672 , .2UNIT1+20 
734 002672’ UNIT2: 0 sUNIT 2 SLOT 
ce 002712’ Bp5005 UNIT3 —_— UNIT 3 SLOT 
797 rier . UNIT3+20 
798 002732’ 000000 UNITY: O UNIT 4 SLOT 
gag 002752’ G06086, UNITS * sated UNIT 5 SLOT 
° ’ 
801 , . 2UNITS+20 
802 002772’ 000000 UNIT6: O UNITE SLOT 
803 003012’ . UNI T6+20 
804 003012" 990000 UNIT?: 0 UNIT 7 SLOT 
80S 32” .2UNIT7+#20 
807 :RP11 CONSTANTS-MEMORY ASSIGNMENTS 
£08 993032" oo0000 T: ;CURRENT_UNTI UNDER TEST 
* 900000 PASSCT: *COUNTS EACH PASS THRU 8 UNITS 
gi0 003035" 000000 WORK: 9 *TEMPORARY STORAGE AREA 
Bi 00304" So0000 a 
813 OO3048: 000000 WORK3: 0 
814 ’ INTERR: 0 s INTERRUPT ERROR FLAG 
gis 003050’ UFF : 1 fPDRESS OF BUFFER 
1 i NT: : IN fiat 
817 LAG: 
818 DISK 10 REGISTERS 









-MAIN. MACY11 27(732) 16-SEP-76 15:47 PAGE 18 
OZRPGB.P11 y 


og5018 os0188 OS110S MESIA: .ASCIZ 
gS BoOs6 041520 MES2: .ASCIZ 
I 122 051504 MESA: .ASCIZ 
020075 , 


O15 O41412 O46131 MES3:  .ASCIZ 
ait BNeceN OSeeee 


att 


- 
- 
a 

Gs fe pb fe Be f+ pe hs be Be he 


FOPCoaNeR TOR 


- 
fal 


tats 


deataiate 


CORUM C DRO SoSaRLGRHS MeIRR ER abe to eE Ts 


x 
: 


819 003056’ 176714 RPCS: 176714 
003060’ 176715 RPCS1: 176715 
* 1767 RPWC: 1767 
4° 1767 poen 1767 
> 1767 A: 1767 
> 176 nated 176724 
. ier te RPER: ec te 
74° 1767 RPOS: 17671 
* 176723 RPCAl: 176723. 
$0625 CTOR=254 
STATUS= 
;MESSAGES 
* 005015 O47125 OS2111 MESI: .ASCIZ 


+ 
* OOS0i5 051124 O4ISOL MESH:  .ASCIZ 
* 936513 000011 : | 
Soe OY 052103 MESS: .ASCIZ. 
> O15 13 OS2101 MESI2: .ASCIZ 
003212’ 020101 047503 O50115 
Gee: ull fae ll 
003232" O0S015 MESI3: .ASCIZ 
Brasag? Gaelbl Beiiod peTene 
Oieve? C2012} OH7111 947603 
* Q51152 O4150S Co0124 
 OOSOIS O5¥i05 Ousbe) mesie: .ASCIZ 
> BBEATE Oa Beers «MESI9: .ASCIZ 
po3s04" 053111 O42105 C0004 








FO2 


;DISK CONTROL REGISTER 


iRURRENT ROORSS REGISTER 
Buea ister 
} RIVE STATUS REGISTER 


s INTERRUPT VECTOR ADOR. 
;DISK INTERRUPT STATUS 


€15><12>/UNIT / 
€15><12>/RPER= / 
€15><12>/RPCS= / 
<15><12>/RPDS= / 
€15><12>/CYLINDER= / 


€15><12>/TRACK= / 


€15)<12>/SECTOR= / 


€15><12>/DATA COMPARE ERROR/ 
¢15><12>/BUS ADDRESS INCORRECT/ 
(15><12>/EXPECTED / 


(15><12>/RECEIVED / 
;START OF BUFFER AREA 
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OZRPGB. P11 CROSS REFERENCE TABLE -- USER SYMBOLS 


4178 
399% 
$3 
es 


* 


726 


S2SeszSzszszsz82 


“445 WUT 
S2ck 36" 
752 56 


g 8 
rr 
apg 


z 
Z 


WOU) 
— jo 
fururuc” 


uy 


aiggss 
a 


“ae 


72 
348 
8178 
441 
= 389 
7le 
731 
3S4 
$58 


3818 
370 373 
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DZRPGB.P11 CROSS REFE “Frale -- USER SYMBOLS 


ai Seve S42 S4s*# S60* S67#  S84# 
733 736 740 743 746 749 754 


J2BB BS 
—4 4 
it} 
* 
g 
Reren sc 
ria 


agsaeges 


~ 
i 
“N 


PE tat a 


2 
5 gas 


1 ok KK as 
cs 
ea 
ep 


RPBA 
RPCA 
RPCA 
Reel 
RPDA 
RPOS 
RPER 
RPWC 
RO 


2 


002212R 
OPES= xexeee 





J02 
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OZRPGB.P11 CROSS REFERENCE TABLE =- PERMANENT SYMBOLS 


624 625 627 630 
356 366 578 590 619 621 


372 446 


=m & 88 


680 


wonowam 
4-45 —p-8 


361 


a4 ANOS 


2P 


393 
638 


SeeEeSe Nae 


BNE 
BPL 
BR 
CLC 
CLR 31 
CMP 
DEC 
INC 
IMP 


oi 


003314 


% ERRORS DETECTED: 12 





ee a ee ee eee 


BORPOB.PLi tt “Ghose REFERENCE TABLE’ PERMANENT SYMBOLS 
% DEFAULT GLOBALS GENERATED: 25 


te i tice 
RUNSTI 


1 SEC 
RUN-TIME. RATIO! Ft his 13.4 
CORE USED: 6K (11 PAGES) 


KOe 


ooo 





Le. 


S rua c Pl KCS. GE 8 k_ writes, 2 


SRD UUQUUUUGR 0K i "sss ae MBN io AREA tt PRT 
SNNNNONO MLL vette Tt Tte tt vas 





PILI IF ISIS sa tetetaeheeteanaes tetra tetetargete 
PRS Roe Rate (UMMC, Les] gg 800 Ler rarer rrr! . JUUU rs UI * 
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